'Test 6 the New ei command.txt b+ 2021-02-12 ei AKA ElseIf

' name change updates now and finally I hope: If, Ei, El, Fi
' now 2021-02-26 with StrFunc Empty to assign a Boolean to a var (isEmpty is reusable I think)
' Oh it's already done from 4 AM

.      Let's examine the common factors of some numbers:
[
	? (Just Enter or < 2 Ends Run) Please enter a number to test >; num
	isEmpty $= num,
	Jmp isEmpty
	If num < 2
		Exit
	El
		If num % 2 = 0
			. /   ;             num; is Even.
		Ei num % 3 = 0
			. /   ;num            ; is Triple.
		Ei num % 5 = 0
			. /   ; num; is Pentacle.
		Ei num % 7 = 0
			. /   ;   num  ; is Septacle.
		El
			remaining = 1 - 1/2 - 1/6 - 1/30 - 1/210
			. /   ;The probability of ; num; not having a First Factor of 2, 3, 4, 5 or 7 is ; remaining;.
		Fi
		.
	Fi
]
. 
.     Thanks for playing.
